@import url("https://fonts.googleapis.com/css2?family=Anta&display=swap");
body {
background-color: #36454f;
color: white;
font-family: 'Anta', sans-serif;
padding: 20px;
border: 5px solid gray;
}
h1 {
text-align: center;
font-weight: bold;
text-shadow: 3px 3px 1px gray;
}
h3,
h4 {
text-align: center;
}
p {
padding: 10px 10px 10px 10px;
border: 3px solid gray;
}
I created my GitHub account, from there I created a repository and named it “stats220”. I created a README.md file when creating my repository, in my Readme file I used three different types of headers, two types of bullet points and links to other websites. Within the Readme file I also used Bold and Italics.
The link to my repo is:
My Repo
I also created a GitHub website. I did this by creating a RMD file that I named “index.Rmd”, I decided to use the same content that is in this RMD file for my website. I then knit the file into a HTML and uploaded it to my repo. From there I setup GitHub pages and my website was live.
The link to my stats220 website is:
My Website
This is a screenshot of my project folder I created on my
computer:
The inspiration for my meme:
I decided to use this style of meme.
The key features of the meme that I re-created were the images on the
right which I managed to do with images I found online. I also added
text next to the images like in the inspiration picture.
The key features that I changed when making my own meme was using
different pictures than the ones in the inspiration picture. I also
changed the images from the right side to the left. I only used three
images in my meme instead of four. I decided to change the white
background to black and I used white text.
library(magick)
inspo_meme.url = "https://pbs.twimg.com/media/DP9beedX4AAvrwo.jpg"
inspo_meme = image_read(inspo_meme.url)
#image_write(inspo_meme, "inspo_meme.png")
im1.url = "https://i.imgflip.com/1lgr72.jpg?a463272"
im2.url = "https://pyxis.nymag.com/v1/imgs/42d/c5a/53aaae864601cd024b2dd1fddaa6a0839a-15-exploding-brain-meme.rsquare.w400.jpg"
im3.url = "https://i1.sndcdn.com/artworks-lyidNFrSCzymr7fo-mmlyoQ-t500x500.jpg"
blank_square = image_blank(380, 306, color = "black") %>% #Creating a blank square for the right side of the meme
image_border(color = "white", geometry = "2.5x2.5")
sq1 = image_read(im1.url) %>% #Creating square 1 with the first image url
image_scale("x300") %>%
image_border(color = "black",
geometry = "28x2.5") %>%
image_border(color = "white",
geometry = "2.5x2.5")
sq2 = image_read(im2.url) %>% #Creating square 2 with the second image url
image_scale("x300") %>%
image_border(color = "black",
geometry = "2.5x2.5") %>%
image_border(color = "white",
geometry = "2.5x2.5")
sq3 = image_read(im3.url) %>% #Creating square 3 with the final image url
image_scale("x300") %>%
image_border(color = "black",
geometry = "2.5x2.5") %>%
image_border(color = "white",
geometry = "2.5x2.5")
sq4 = blank_square %>% #Creating square 4 with the blank square then adding text
image_annotate(text = "Having a\nstrong knee",
color = "white",
font = "Impact",
size = 55,
gravity = "center")
sq5 = blank_square %>% #Creating square 5 with the blank square then adding text
image_annotate(text = "Dislocating \nyour knee",
color = "white",
font = "Impact",
size = 55,
gravity = "center")
sq6 = blank_square %>% #Creating square 6 with the blank square then adding text
image_annotate(text = "Not wearing a \nknee brace \nand dislocating \nit AGAIN!",
color = "white",
font = "Impact",
size = 55,
gravity = "center")
left_side = image_append(c(sq1,sq2,sq3),
stack = TRUE)
right_side = image_append(c(sq4,sq5,sq6),
stack = TRUE)
meme = image_append(c(left_side, right_side))
image_write(meme, "my_meme.png")
meme
#Animation Code
frame1 = image_append(c(sq1,blank_square))
frame2 = image_append(c(sq1,sq4))
frame3 = image_append(c(sq2,blank_square))
frame4 = image_append(c(sq2,sq5))
frame5 = image_append(c(sq3,blank_square))
frame6 = image_append(c(sq3,sq6))
frames = c(frame1, frame2, frame2, frame3, frame4,
frame4, frame5, frame6, frame6)
gif = image_morph(frames) %>%
image_animate(fps = 10)
image_write(gif, "my_animation.gif")
My Animation: